home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / basic / pro_pds.exe / WINDEMO4.BAS < prev    next >
Encoding:
BASIC Source File  |  1992-11-15  |  2.2 KB  |  71 lines
  1. '    WINDEMO4.BAS - ProWindows(tm) LITE Demo Program
  2.  
  3. REM $DYNAMIC        ' <= SET UP QUICKBASIC FOR DYNAMIC MEMORY USAGE
  4. DEFINT A-Z          ' <= DEFAULT TO INTEGERS
  5.  
  6. REM $INCLUDE: 'LITE.BI'       ' <= REQUIRED FOR WINDOW CALLS
  7.  
  8. ' === DEFINE A FEW CONSTANTS
  9.  
  10. CONST WINMEMSIZE% = 8191      ' <= VIRTUAL WINDOW MEMORY SIZE
  11. CONST SCRNMEMSIZE% = 4096     ' <= SCREEN BUFFER MEMORY SIZE
  12. CONST MAXWINDOWS% = 30        ' <= MAXIMUM NUMBER OF WINDOWS
  13.     
  14.     CLEAR , , 4096           ' <= SET ASIDE ADDITIONAL "STACK" SPACE
  15.  
  16.     LOCATE 1, 1
  17.  
  18.     PreInit                  ' <= PRE-INITIALIZE THE WINDOW MANAGER
  19.  
  20. ' === DIMENSION GLOBAL ARRAYS WITH ABOVE DEFINED CONSTANTS
  21.                                          
  22.     REDIM SHARED VirMem(WINMEMSIZE) AS INTEGER    ' <= VIRTUAL MEMORY
  23.     REDIM SHARED scrn(SCRNMEMSIZE) AS INTEGER     ' <= SCREEN MEMORY
  24.     REDIM SHARED vcb(MAXWINDOWS) AS vircb         ' <= VIRTUAL WINDOW INFO
  25.     REDIM SHARED wcb(MAXWINDOWS) AS wincb         ' <= DISPLAYED WINDOW INFO
  26.     REDIM SHARED cursor(MAXWINDOWS) AS cursorTYPE ' <= CURSOR CONTROL ARRAY
  27.     REDIM SHARED wcbndx(MAXWINDOWS) AS INTEGER    ' <= LIST OF HANDLES
  28.     
  29.     InitPro                  ' <= INITIALIZE THE WINDOW MANAGER
  30.  
  31.     ReCycleMode 0            ' <= ENABLE "VIDEO RECYCLING"
  32.     
  33.     UseDrivers 0, 0, 1       ' <= INSTALL ANY NEEDED DRIVERS
  34.  
  35. REM  setBWmode 1              ' <= SWITCH TO MONOCHROME MODE
  36.  
  37. ' === DEFINE THE "GLOBAL WINDOW OPTIONS"
  38.  
  39.     GlobalOptions = SELECTABLE
  40.     
  41.     FillScreen 1, 1, MAXROWS - 1, MAXCOLS, 23, 250, snow
  42.     
  43.     Notice                   ' <= COPYRIGHT NOTICE (SHAREWARE VERSION ONLY)
  44.     Win1 = CurrentWindow     ' <= GET THE WINDOW'S HANDLE
  45.  
  46.     SoundMode = GLISANDO     ' <= TURN ON CHIRP NOISE
  47.  
  48.     FOR Handle = 1 TO 25
  49.     
  50.         kolor = attr(RAND(16), RAND(8))
  51.  
  52.         OpenWindow Handle, 5, 32, kolor, 1, 1, 0, SELECTABLE
  53.         wcprint 1, "ProWindows(tm)"
  54.         wcprint 2, "The World's Greatest Toolbox"
  55.         wcprint 3, "for QuickBASIC & PDS 7.1"
  56.         DisplayWindow Handle, RAND(20), RAND(50), 5, 32
  57.  
  58.     NEXT
  59.  
  60.     WHILE INKEY$ = ""
  61.         Handle = RAND(25) + 1
  62.         MainWindow Handle        ' <= BRING A WINDOW TO THE TOP
  63.     WEND
  64.     
  65.     FOR Handle = WI TO 2 STEP -1
  66.         CloseWindow wcbndx(Handle)    ' <= CLOSE WINDOWS IN ORDER OF LEVEL
  67.     NEXT
  68.     
  69.     LOCATE 24, 1
  70.  
  71.